home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / misc / math / lifemake.cpt / LifeMaker Demo.rsrc / LIF2_24897_InkSpot < prev    next >
Encoding:
Text File  |  1991-07-16  |  286 b   |  11 lines
  1. RULE InkSpot
  2.    VAR new, sum
  3. BEGIN
  4.    IF center[0] THEN
  5.       new := 3            (* cell remains set *)
  6.    ELSE
  7.       sum := north[0] + NE[0] + east[0] + SE[0] + south[0] + SW[0] + west[0] + NW[0]
  8.       new := sum = 3      (* set cell if three set neighbors *)
  9.    END
  10.    RETURN new
  11. END